home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh20a.d64
/
listing 8
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
373b
|
10 lines
10 POKE 53265,PEEK(53265) AND 247 :REM 24-ZEILEN-MODUS
20 PRINTCHR$(147) :REM BILDSCHIRM LOESCHEN
30 FOR X=1 TO 24:PRINTCHR$(17);:NEXT :REM CURSOR AN UNTEREN RAND
40 POKE 53265,(PEEK(53265) AND 248) + 7 :REM POSITION FUER 1.SCROLL
50 PRINT"HALLO";
60 FOR P=6 TO 0 STEP -1
70 POKE 53265,(PEEK(53265) AND 248) + P
80 FOR X=1 TO 50:NEXT :REM VERZOEGERUNGSSCHLEIFE
90 NEXT P:GOTO 40